home *** CD-ROM | disk | FTP | other *** search
- ; CheckYourDevs V3.0
- ; © 02/1999 by Heiko Schröder
- ; 3.0 Suche nun mit VersionWB
- ; 2.01 keine Auflistung von ~(#?.info|#?.bak|#?.readme|#?.sig)
-
- Echo "Device-Check at your system*NV3.0 © Heiko Schröder 98/99"
- Echo "*NThe report will be written in RAM: and you can't stop the version scan!"
- Ask "Do you want to check your system devices? (Y/N)"
- If NOT WARN=5
- Echo "CANCEL ..."
- C:Quit
- EndIf
-
- C:FailAt 100
- C:Copy VersionWB RAM:
- C:Copy C:Search RAM:
- C:Copy Scripts/DeviceList RAM:
- C:Copy MyCheck RAM:
- C:Copy MyCheck.rexx RAM:
- C:Copy MyConvert.rexx RAM:
-
- Echo "List of all your devices*N--------------------------*N" >Ram:Dev-List
- Echo "List of your old devices*N--------------------------*N" >Ram:Dev-OldList
- Echo "List of new devices*NPlease contact me: age@thepentagon.com*Nand send this file to me. Thanks.*N--------------------------" >Ram:Dev-NewList
- Echo "For DevGuide (02/99) I scan infos about your system:" >>Ram:Dev-NewList
- VersionWB >>Ram:Dev-NewList
- CPU >>Ram:Dev-NewList
-
- Echo "Starting Rexx"
- Sys:System/RexxMast >NIL:
-
- Echo "Looking for Sys:Devs/#?.device"
- C:List Sys:Devs/ PAT=#?.device~(#?info|#?bak|#?readme|#?sig) ALL quick nohead LFormat="Execute MyCheck %s%s" >Ram:List1
-
- Sort Ram:List1 Ram:List1
-
- Echo "Starting Check..."
- SetEnv VERSIONWB_MAX 255
- Protect MyCheck +s
- Execute Ram:List1
- Echo "*NThe result can be found at Ram:Dev-OldList and Ram:Dev-NewList ..."
- Echo "Please send me the RAM:Dev-NewList for updating the Device.guide.*N"
- Echo "*NThis script used the program VersionWB from Håkan Parting...*N--- END---"
-
- SetEnv VERSIONWB_MAX 50
- Delete Ram:List1 QUIET
- Delete Ram:VersionWB QUIET
- Delete Ram:vwb_check QUIET
- Delete Ram:Search QUIET
- Delete Ram:DeviceList QUIET
- Delete Ram:MyCheck QUIET
- Delete Ram:MyCheck.rexx QUIET
- Delete Ram:MyConvert.rexx QUIET
-
- Ask "Press ENTER for next Step."
- Echo "*ec"
-
- ; Device Online Update Generating Script
-
- Echo "Device Library Update Form Generator 1.01*N© 98/99 by Heiko Schröder*N"
- Ask "Next Step... *NDo you want to create a Form for updating devices online at http://amigasystem.org (IP=http://209.140.94.126)? (Y/N)"
- If NOT WARN=5
- Echo "CANCEL ..."
- Delete Ram:Dev-OnlineUpdate QUIET
- C:Quit
- EndIf
- Echo "Generating Form..."
- rx MyOnlineUpdate.rexx
-
- Delete Ram:Dev-OnlineUpdate QUIET
- Echo "Ready. Please load RAM:Dev-OnlineUpdate.html in your browser and follow the instructions."
- Ask "*NPress ENTER to end..."
- Wait 2 secs
-